home *** CD-ROM | disk | FTP | other *** search
/ Publication 14 / Publication_14_19xx_Civitas_de_Side_B.d64 / reader .src (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  155 lines
  1. 5 ifa=0thena=1:load"routi*",8,1
  2. 10 f(1)=15:f(2)=15:f(3)=11:f(4)=0:ga=8:gosub1303:print"[147]"chr$(8):poke650,128
  3. 11 print" [144]loading...":poke652,5:poke788,52:dimt$(30)
  4. 12 sp$="gaxar"
  5. 16 poke53272,29:c=2:c$="publication":gosub1303:print"[147]"
  6. 17 poke53269,0:open2,8,2,"config*,s,r":input#2,q:forg=1toq:input#2,t$(g)
  7. 18 next:close2:forg=q+1to30:t$(g)="----------------":next
  8. 19 x$="textreader":s$="5000":f%=1:gosub1103
  9. 100 v=20520:gosub1503:sys49152,v,v+880,1024:poke53265,27
  10. 110 sys49152,v,v+880,1024:gosub1603
  11. 111 geta$:ifpeek(203)=64andpeek(653)=0anda$=""then111
  12. 112 ifa$=""thenv=20520:goto110
  13. 113 ifpeek(653)=2ora$="[145]"thenifv>20559thenv=v-40:goto110
  14. 114 ifa$=""ora$=chr$(32)thenifv<ee-39thenv=v+40:goto110
  15. 115 ifa$=""thenifv>ee-879thenv=ee:goto110
  16. 116 ifa$="[157]"thenifv<21400thenv=20520:goto110
  17. 117 ifa$=""thenv=v+880:goto110
  18. 118 ifa$="[157]"thenv=v-880:goto110
  19. 119 ifa$="c"then150
  20. 120 ifa$="r"thengosub152:goto111
  21. 121 ifpeek(203)=63then200
  22. 122 ifa$=chr$(13)then400
  23. 123 if(peek(653)and7)=7thensys64738
  24. 124 ifa$="d"thenpoke53265,11:goto17
  25. 129 goto111
  26. 150 ifc=2thenpoke53272,24:c=1:goto110
  27. 151 c=2:poke53272,29:goto110
  28. 152 ifpeek(650)=128thenpoke650,0:return
  29. 153 poke650,128:return
  30. 200 poke53265,11:forg=21to0step-1:poke781,g:sys59903:next
  31. 201 z=peek(650):poke650,0:poke53272,29:poke211,14:a=1
  32. 202 poke214,1:sys58732:print"[216][217][218][219][217][216]system":printtab(14)"[189][188][186][187][188][189] v8.1
  33. 204 [153]"  (NULL)val(NULL)(NULL)ascright$(NULL)val    :wait "[170]f$:[153]"  atn(NULL)(NULL).lenleft$atn(NULL)(NULL)val(NULL) :wait "[170]c$
  34. 205 [153]"  (NULL)(NULL)(NULL)right$(NULL)val(NULL)val(NULL)   :wait ";sp$
  35. 206 [153]"  (NULL)val(NULL)(NULL)val(NULL)valatn(NULL)   :wait ";:[139]z[178]128[167][153]"on ":[137]208
  36. 207 [153]"off"
  37. 208 [153]"  str$val(NULL)right$lenval      :wait";[196](ga)
  38. 220 [151]53265,27:[151]211,1:[151]214,a[172]2[170]4:[158]58732:[153]"coswait"
  39. 221 [146]198,1:[161]a$:[151]198,0:[139]a$[178][199](13)[167][145]a[137]300,260,270,250,280
  40. 222 [151]211,1:[151]214,a[172]2[170]4:[158]58732:[153]" ":[139]a$[178]"on"[175]a[177]1[167]a[178]a[171]1
  41. 223 [139]a$[178]""[175]a[179]5[167]a[178]a[170]1
  42. 224 [139][194](203)[178]63[167]298
  43. 226 [137]220
  44. 250 [141]152:z[178][194](650):[151]211,0:[151]214,11:[158]58732:[137]206
  45. 260 x%[178]16:y%[178]8:l%[178]16:f%[178]0:[141]1703:c$[178]x$:s$[178]"2000":f%[178]0:[141]1103
  46. 261 [151]53265,11:[137]301
  47. 270 x%[178]16:y%[178]10:l%[178]16:f%[178]0:[141]1703:sp$[178]x$:s$[178]"3800":f%[178]0:[141]1103
  48. 271 [137]261
  49. 280 [139]ga[178]8[167]ga[178]9:[137]282
  50. 281 ga[178]8
  51. 282 [151]211,0:[151]214,13:[158]58732:[137]208
  52. 298 [151]53265,11:[151]650,z:[139]c[178]1[167][151]53272,24:[137]100
  53. 299 [151]53272,29:[137]100
  54. 300 x%[178]16:y%[178]6:l%[178]16:f%[178]0:[141]1703:s$[178]"5000":f%[178]1:[141]1103:[151]53265,11
  55. 301 [141]1003:[137]200
  56. 400 [151]53265,11:[129]g[178]21[164]0[169][171]1:[151]781,g:[158]59903:[130]
  57. 401 z[178][194](650):[151]650,0:[151]53272,29
  58. 402 [129]g[178]1[164]15:[151]211,3:[151]214,g[170]4:[158]58732:[153]t$(g):[130]
  59. 403 [129]g[178]30[164]16[169][171]1:[151]211,36[171][195](t$(g)):[151]214,g[171]11:[158]58732:[153]t$(g)
  60. 404 [130]:[151]211,7:[151]214,1:[158]58732
  61. 406 [153]"atnpeeklenstr$valascchr$left$right$mid$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":[153][163]7)"getnewtab(tointspc(thennotstep+<*/^-orstep+andsgnintabs"
  62. 410 [151]53265,27:a[178]1:q[178]1
  63. 411 x$[178]"coswait":g[178]a:[139]q[178]38[167]g[178]g[171]15:x$[178]"logwait"
  64. 412 [151]211,q:[151]214,g[170]4:[158]58732:[153]x$:[146]198,1:[161]a$:[151]198,0
  65. 413 [139]a$[178][199](13)[167]425
  66. 414 [151]211,q:[151]214,g[170]4:[158]58732:[153]" "
  67. 415 [139](a$[178]""[176]a$[178]"cmd")[175]q[178]1[167]q[178]38:a[178]a[170]15:[137]411
  68. 416 [139](a$[178]""[176]a$[178]"cmd")[175]q[178]38[167]q[178]1:a[178]a[171]15:[137]411
  69. 417 [139]a$[178]""[175]q[178]1[175]a[178]15[167]q[178]38:a[178]16:[137]411
  70. 418 [139]a$[178]""[175]q[178]38[175]a[178]30[167]q[178]1:a[178]1:[137]411
  71. 419 [139]a$[178]""[167]a[178]a[170]1:[137]411
  72. 420 [139]a$[178]"on"[175]q[178]1[175]a[178]1[167]q[178]38:a[178]30:[137]411
  73. 421 [139]a$[178]"on"[175]q[178]38[175]a[178]16[167]a[178]15:q[178]1:[137]411
  74. 422 [139]a$[178]"on"[167]a[178]a[171]1:[137]411
  75. 423 [139][194](203)[178]63[167]298
  76. 424 [137]411
  77. 425 [139]t$(a)[178]"----------------"[167]298
  78. 426 x$[178]t$(a):f%[178]1:s$[178]"5000":[141]1103:[137]298
  79. 1000 [143]
  80. 1001 [143] diskstatus
  81. 1002 [143]
  82. 1003 [159]1,8,15:[132]1,g,a$,q,z:[160]1:[142]
  83. 1100 [143]
  84. 1101 [143] laden
  85. 1102 [143]
  86. 1103 [151]53265,11:[151]53269,0:[141]1403:aa[178]g:[141]1207
  87. 1104 [158]57812 x$[170]"*",ga:[151]780,0:[151]781,al:[151]782,ah:[158]65493
  88. 1105 [139]f%[178]0[167]1199
  89. 1106 f$[178]x$:ee[178][194](175)[172]256[170][194](174)[171]880:t$[178]""
  90. 1107 g[178](ee[171]aa[171]40)[173]40:a$[178][196](g):a$[178][201](a$,[195](a$)[171]1):e$[178]"":[129]g[178][195](a$)[164]5
  91. 1108 e$[178]e$[170]"0":[130]:e$[178]e$[170]a$:[129]g[178]1[164]8:q[178][194](20479[170]g):t$[178]t$[170][199](q[170]64):[130]
  92. 1109 [139][194](20488)[178]49[167]c[178]2:[151]53272,29:[137]1199
  93. 1110 [151]53272,24:c[178]1
  94. 1199 [151]53269,255:[142]
  95. 1200 [143]
  96. 1201 [143] x/y speichern
  97. 1202 [143]
  98. 1203 [158]57812 x$,ga:[151]174,el:[151]175,eh:[151]193,al:[151]194,ah:[158]62957:[142]
  99. 1204 [143]
  100. 1205 [143] lo/hi aufspalten
  101. 1206 [143]
  102. 1207 g[178]aa[173]256:ah[178][181](g):al[178](g[171][181](g))[172]256
  103. 1208 g[178]ea[173]256:eh[178][181](g):el[178](g[171][181](g))[172]256:[142]
  104. 1300 [143]
  105. 1301 [143] screen init
  106. 1302 [143]
  107. 1303 [151]53281,f(1):[151]53280,f(2):[151]646,f(3):[129]g[178]1[164]8:[151]53286[170]g,f(4)
  108. 1304 [130]:[142]
  109. 1400 [143]
  110. 1401 [143] hex -> dez
  111. 1402 [143]
  112. 1403 g[178]0:[129]q[178]1[164][195](s$):z[178][198]([202](s$,q))[171]48:g[178]g[172]16[170]z[170]7[172](z[177]9):[130]:[142]
  113. 1500 [143]
  114. 1501 [143] sprites
  115. 1502 [143]
  116. 1503 [129]g[178]1[164]8:a$[178][202](t$,g,1):q[178][198](a$)[171]64:[139]q[177]26[167]q[178]27
  117. 1504 [151]2039[170]g,q[170]223:[130]
  118. 1505 [129]g[178]1[164]8:[151]53246[170]g[172]2,24[172]g[170]63:[151]53247[170]g[172]2,228:[130]:[151]53269,255
  119. 1506 [142]
  120. 1600 [143]
  121. 1601 [143] line/page
  122. 1602 [143]
  123. 1603 [151]211,2:[151]214,22:[158]58732:[153]"stop(NULL)right$(NULL)val"[163]34)"(NULL)val(NULL)(NULL)waitpoke"
  124. 1604 g[178](v[171]20520)[173]40:a$[178][196](g):a$[178][201](a$,[195](a$)[171]1):x$[178]"":[129]g[178][195](a$)[164]5
  125. 1605 x$[178]x$[170]"0":[130]:x$[178]x$[170]a$:[151]211,1:[151]214,23:[158]58732:[153]x$[163]33)e$
  126. 1609 [142]
  127. 1700 [143]
  128. 1701 [143] input
  129. 1702 [143]
  130. 1703 [151]211,x%:[151]214,y%:[158]58640:[129]g[178]1[164]l%:[153]"^wait";:[130]:x$[178]""
  131. 1705 [151]211,x%:[151]214,y%:[158]58640
  132. 1706 [146]198,1:[161]a$:[151]198,0:[139][194](203)[178]63[167]100
  133. 1707 [139]a$[178][199](20)[167]1720
  134. 1708 [139]a$[178][199](13)[167]1725
  135. 1709 [139][195](x$)[178]l%[167]1706
  136. 1710 [139]f%[178]2[175](a$[179]"0"[176]a$[177]"9")[175](a$[179]"a"[176]a$[177]"f")[167]1706
  137. 1711 [139]f%[178]1[175](a$[179]"0"[176]a$[177]"9")[167]1706
  138. 1712 :[139]a$[179][199](32)[176]a$[177][199](218)[167]1706
  139. 1713 [139]a$[177][199](95)[175]a$[179][199](193)[167]1706
  140. 1714 [153]a$;:x$[178]x$[170]a$:[137]1706
  141. 1720 [139]x$[178]""[167]1706
  142. 1721 [139][195](x$)[178]1[167]x$[178]"":[137]1723
  143. 1722 x$[178][200](x$,[195](x$)[171]1)
  144. 1723 [153][199](157);"^wait";[199](157);
  145. 1724 [137]1706
  146. 1725 [139]x$[178]""[167]1706
  147. 1726 [142]
  148. 2000 [143]
  149. 2001 [143] publication reader v8.1
  150. 2002 [143]   done on 02/01/1997
  151. 2003 [143]         by
  152. 2004 [143] zeitgeist/civita/willow
  153. 2005 [143]
  154. 9999 [151]53269,0:[151]53272,23:[153]"load":[128]
  155.